home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 41.zip / BS1 part 41 / Devpac 2.12 disk 2.adf / include.strip / exec / initializers.i < prev    next >
Text File  |  1987-03-31  |  712b  |  41 lines
  1.     IFND EXEC_INITIALIZERS_I
  2. EXEC_INITIALIZERS_I SET 1
  3. INITBYTE        MACRO   *
  4.   DC.B    $e0
  5.   DC.B    0
  6.   DC.W    \1
  7.   DC.B    \2
  8.   DC.B    0
  9.   ENDM
  10. INITWORD        MACRO   *
  11.   DC.B    $d0
  12.   DC.B    0
  13.   DC.W    \1
  14.   DC.W    \2
  15.   ENDM
  16. INITLONG        MACRO   *
  17.   DC.B    $c0
  18.   DC.B    0
  19.   DC.W    \1
  20.   DC.L    \2
  21.   ENDM
  22. INITSTRUCT  MACRO   *
  23.      DS.W    0
  24.      IFC     '\4',''
  25. COUNT\@     SET     0
  26.      ENDC
  27.      IFNC    '\4',''
  28. COUNT\@     SET     \4
  29.      ENDC
  30. CMD\@       SET     (((\1)<<4)!COUNT\@)
  31.      IFLE    (\2)-255
  32.      DC.B    (CMD\@)!$80
  33.      DC.B    \2
  34.      MEXIT
  35.      ENDC
  36.      DC.B    CMD\@!$0C0
  37.      DC.B    (((\2)>>16)&$0FF)
  38.      DC.W    ((\2)&$0FFFF)
  39.      ENDM
  40.     ENDC !EXEC_INITIALIZERS_I
  41.